home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 2,801 to 2,900
/
aol-file-protocol-4400-2801-to-2900.zip
/
AOLDLs
/
TAWUG
/
TAWUG Disk No. 20 (SHK)
/
TAWUG.20
/
AWORKS.DATA
(
.txt
)
< prev
next >
Wrap
AppleWorks Document
|
1986-01-17
|
3KB
|
72 lines
O=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===
0 REMAPPLEWORKS DATA DISK CATALOGUING PROGRAM
1 REMBY ROBERT J. SCHACK
2 REMDECEMBER 22, 1985
10 GOSUB 300.
20 D$ = CHR$ (4): REMCONTROL-D DOS COMMAND8
6 30 VTAB 14: HTAB A%(1): PRINT A$(1): REMPRINT CHECK
PRINTER POWER MESSAGE3
1 40 VTAB 16: HTAB A%(2): PRINT A$(2);: REMPRINT
INSTRUCTIONS TO CONTINUE
50 GET KEYPRESS1$
60 HOME : REMCLEAR SCREEN8
6 70 IF KEYPRESS1$ < > CHR$ (13) GOTO 40: REMIF ANY ?
=RESPONSE OTHER THAN <RETURN>, PRINT INSTRUCTIONS TO CONTINUE
AGAIN AND WAIT9
7 80 VTAB 14: HTAB A%(3): PRINT A$(3);: REMIF <RETURN> )
PRESSED, PRINT REQUEST FOR DRIVE NUMBER;
9 90 GET DRIVE$: REMUSE STRING SO PROGRAM WON'T CRASH IF
WRONG KEY IS PRESSED8
100 DR% = VAL (DRIVE$): REMCONVERT STRING TO INTEGER?
= 110 IF DR% < > 1 AND DR% < > 2 GOTO 80: HOME : REMIF BAD >
<DRIVE NUMBER, PRINT DRIVE NUMBER REQUEST AGAIN; ELSE, CLEAR
SCREEN/
120 HOME : VTAB 14: HTAB A%(4): PRINT A$(4)(
130 VTAB 16: HTAB A%(5): PRINT A$(5)(
140 VTAB 17: HTAB A%(6): PRINT A$(6)6
4 150 VTAB 19: HTAB 19: PRINT "?";: GET KEYPRESS2$: !
REMCENTER CURSOR AND GET ANSWER;
9 160 IF KEYPRESS2$ < > "r" AND KEYPRESS2$ < > "R" AND 8
6KEYPRESS2$ < > "f" AND KEYPRESS2$ < > "F" GOTO 120: =
;REMPRINT REQUEST FOR CATALOG WIDTH AND IF BAD REPLY, PRINT
AGAIN;
9 170 IF KEYPRESS2$ = "R" OR KEYPRESS2$ = "r" THEN CA$ =
"CAT,D";
9 180 IF KEYPRESS2$ = "F" OR KEYPRESS2$ = "f" THEN CA$ =
"CATALOG,D"2
190 PRINT D$;"PR#1": REMSEND OUTPUT TO PRINTER
200 PRINT D$;CA$;DR%2
210 PRINT D$;"PR#0": REMSEND OUTPUT TO MONITOR
220 HOME ?
= 230 VTAB 14: HTAB A%(7): PRINT A$(7): VTAB 15: HTAB A%(8): 8
6PRINT A$(8);: REMPRINT QUERY WHETHER TO PRINT ANOTHER
CATALOG
240 GET KEYPRESS3$: HOME ?
= 250 IF KEYPRESS3$ = "Y" OR KEYPRESS3$ = "y" GOTO 70: REMIF :
8RESPONSE IS YES, RETURN TO LINE 70 TO PRINT REQUEST FOR
DRIVE NUMBER?
= 260 IF KEYPRESS3$ = "N" OR KEYPRESS3$ = "n" THEN VTAB 14: ?
=HTAB A%(9): PRINT A$(9): VTAB 15: HTAB A%(10): PRINT A$(10): >
<FOR I = 1 TO 200: NEXT : HOME : NEW : REMIF RESPONSE IS NO, 4
PRINT GOOD BYE MESSAGE, CLEAR SCREEN, CLEAR MEMORY>
< 270 GOTO 230: REMIF RESPONSE OTHER THAN YES OR NO, RETURN "
TO LINE 160 AND REQUEST RESPONSE9
300 REMSTRING INITIALIZATION AND CENTERING SUBROUTINE
310 HOME
320 FOR I = 1 TO 10/
330 READ A$(I): REMLOAD ARRAY WITH MESSAGES7
5 340 A%(I) = INT ((40 - LEN (A$(I))) / 2): REMFIND 8
STARTING POINT OF CENTERED STRING ON 40 COLUMN MONITOR
350 NEXT 1
360 DATA PLEASE CHECK THAT YOUR PRINTER IS ON.
370 DATA PLEASE PRESS <RETURN> TO CONTINUE*
380 DATA CATALOG WHICH DRIVE (1 OR 2)?$
390 DATA CHOOSE (R OR F) CATALOG$
400 DATA R = REGULAR (40 COLUMN)"
410 DATA F = FULL (80 COLUMN) !
420 DATA DO YOU WANT TO PRINT#
430 DATA ANOTHER CATALOG (Y/N)?-
440 DATA PROGRAM OVER ... CLEARING MEMORY
450 DATA GOOD BYE
460 RETURN